home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / dada.lha / dada / circle.f next >
Encoding:
Text File  |  1995-02-26  |  578 b   |  19 lines
  1.              [$0\>~\9>~
  2.         &]b:[0^'0-[$b;!][\10*
  3.       +^'0-]#]c:[$r:y:1y;_+d:0x
  4.      :3e:2_r;*5+f:1_x;y;[y;x;>]
  5.    [0d;>$[d;e;+d:f;2+f:x;1+x:]?~[
  6.   d;f;+d:f;4+f:x;1+x:y;1_+y:]?e;2+
  7.  e:x;y;]#]m:[g;[$_r;+[$0>]["."1_+]#
  8. %2*[$0>]["#"1_+]#%"
  9. "]?g;~[%]?h;[g;~g:]?]l:[2$ø[$$0>\0=|
  10. ][\2+$ø]#%%]u:[2_u;!3_u;!4_u;!]v:[1ø
  11. x:[$$0>\0=|][1øx;=~[$l;!x;1_+x:]?%%]
  12. #%%%[$$0>\0=|][l;!%]#%[$$0>\0=|][%l;
  13.  !]#%x:%[$$0>\0=|][$x;=~[1øl;!x;1+x
  14.  :]?%%]#]n:[0h:1_g:^[$32=][%^]#'h=[
  15.   1_h:]?]k:[0i:i;ø[$1_=~][0 1ø>$[1ø
  16.     ."
  17. "     ]?~[$.","]?%i;1+$i:ø]#%]
  18.        s:c;!1_=~[k;!]?m;!v;!n
  19.          ;!